﻿Module modCommon
    Public Function getServerDateTime() As DateTime
        Dim dt As DataTable = New DataTable
        Dim szSql As String = String.Empty
        szSql &= "SELECT CURRENT_TIMESTAMP(9) "
        dt = DBacs.ExecuteSql(szSql, -1)
        Return dt.Rows(0)(0)
    End Function
End Module
